﻿Module Module1
  Sub Main()

    Dim testo As String = ""
    Dim i As Integer = 0
    For Each str As String _
            In My.Application.CommandLineArgs
      testo &= "Parametro " & i & ": " & _
          str & Environment.NewLine
      i += 1
    Next
    Console.WriteLine(testo, _
        "My.Application.CommandLineArgs")
    Console.ReadLine()

  End Sub
End Module
